home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS 8 / P8S007A.dsk / ZANNY.QUIT.bas < prev   
BASIC Source File  |  2012-02-16  |  2KB  |  30 lines
  1. 10  REM  ZANNY QUIT BY M. A. COFFEY
  2. 20  REM  SOME HELP FROM ARTICLE BY P. S. DUNSEATH
  3. 100 S$ = "@@@@@@@@@@@@@@ YO YO DUCK @@@@@@@@@@@@@@"
  4. 110 N =  INT( RND(1) *3) +1
  5. 115  IF  PEEK(64448) = 224  AND  PEEK(65055) = 96  AND N = 1  THEN  GOTO 110
  6. 116  IF  PEEK(64448) = 224  AND  PEEK(65055) = 176  AND N = 1  THEN  GOTO 110
  7. 120  ON N GOTO 140,200,240
  8. 130  GOTO 110
  9. 140  HOME 
  10. 150  FOR I = 1 TO 280
  11. 160  PRINT  CHR$( INT( RND(1) *126 +33));"  ";
  12. 170  NEXT I
  13. 180  PRINT  CHR$(13); CHR$(4);"BRUN CLEAR"
  14. 190  END 
  15. 200  HOME 
  16. 210  FOR I = 1 TO 24: PRINT S$;: NEXT 
  17. 220  PRINT  CHR$(13); CHR$(4);"BRUN BOUNCE"
  18. 230  END 
  19. 240  HOME 
  20. 250  FOR I = 1 TO 24: PRINT S$;: NEXT 
  21. 260  FOR I = 24 TO 13  STEP  -1: HTAB 1: VTAB I: CALL  -868: VTAB (25 -I): CALL  -868: FOR J = 1 TO 50: NEXT : NEXT : CALL  -936: REM   SCREEN WIPE FROM TOP AND BOTTOM TO MIDDLE 
  22. 270  HOME 
  23. 280  FOR I = 1 TO 24: PRINT S$;: NEXT 
  24. 290  FOR I = 13 TO 24: HTAB 1: VTAB 1: VTAB I: CALL  -868: VTAB (25 -I): CALL  -868: FOR J = 1 TO 50: NEXT : NEXT : REM  SCREEN WIPE FORM MIDDLE TO  TOP AND BOTTOM SIMULTANEOUSLY
  25. 300  HOME 
  26. 310  FOR I = 1 TO 24: PRINT S$;: NEXT 
  27. 320  FOR Z = 1 TO 20:X = 20 -Z: POKE 32,X: POKE 33,(2 *Z): CALL  -936: FOR I = 1 TO 50: NEXT : NEXT : REM  CURTAINS
  28. 330  HOME 
  29. 340  FOR I = 1 TO 24: PRINT S$;: NEXT 
  30. 350  FOR I = 1 TO 12: POKE 35,I: CALL  -936: POKE 34,(24 -I): CALL  -936: POKE 35,24: POKE 34,0: POKE 33,I: POKE 32,(I -1): CALL  -936: POKE 32,(41 -(2 *I)): CALL  -936: POKE 32,0: POKE 33,40: FOR J = 1 TO 25: NEXT : NEXT : HOME